From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Fri, 16 Apr 1993 19:35:22 +0000 (+0000)
Subject: (diff-parse-differences): Small robustification --- don't lose if we
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96519
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a4ef65847837bd4e64e42183f191339485fb9b7a;p=emacs.git

(diff-parse-differences): Small robustification --- don't lose if we
call this with compilation-parsing-end nil
---

diff --git a/lisp/diff.el b/lisp/diff.el
index bb33689c0f9..c4a83115b2c 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -74,7 +74,7 @@ is nil, REGEXP matches only half a section.")
   (message "Parsing differences...")
 
   ;; Don't reparse diffs already seen at last parse.
-  (goto-char compilation-parsing-end)
+  (if compilation-parsing-end (goto-char compilation-parsing-end))
 
   ;; Construct in REGEXP a regexp composed of all those in dired-regexp-alist.
   (let ((regexp (mapconcat (lambda (elt)
@@ -267,4 +267,6 @@ The backup file is the first file given to `diff'."
 		      (> (backup-extract-version fn1)
 			 (backup-extract-version fn2))))))))))
 
+(provide 'diff)
+
 ;;; diff.el ends here